Public Class IngresodeInsumos
    Dim ADOrdenesDeCompra As New ADCono.OrdenesdeCompra
    Dim ADItemDeOC As New ADCono.ItemsDeOC
    Dim ADInsumos As New ADCono.Insumos

    Public Function ObtenerOrdenesDeCompraPendientes()
        Dim DS As New DataSet
        DS = ADOrdenesDeCompra.ObtenerPendientes
        Return DS
    End Function

    Public Function ObtenerItemsDeOCFiltrados(ByVal Cod_OC As Integer)
        Dim DS As New DataSet
        DS = ADItemDeOC.ObtenerFiltrados(Cod_OC)
        Return DS
    End Function

    Public Sub ModificarItemDeOC(ByVal Cod_OC As Integer, ByVal Cod_Producto As Integer, ByVal Cantidad As Integer, ByVal Ingresados As Integer)
        ADItemDeOC.Modificar(Cod_OC, Cod_Producto, Cantidad, Ingresados)
    End Sub

    Public Function ObtenerIngresoDeInsumos() As DataSet
        Dim DT As New DataSet
        DT = ADInsumos.ObtenerIngresosInsumos()
        Return DT
    End Function


End Class
